home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.42 / includes3v1 / includes3v1.lha / Workbench / Icon.i next >
Text File  |  1994-12-04  |  2KB  |  67 lines
  1. {
  2.         Icon.i for PCQ Pascal
  3.  
  4.         external declarations for workbench support library
  5. }
  6.  
  7. Const
  8.  
  9. {*******************************************************************
  10. *
  11. * library structures
  12. *
  13. *******************************************************************}
  14.  
  15.  
  16.     ICONNAME            = "icon.library";
  17.  
  18. var
  19.     IconBase    : Address;
  20.  
  21.  
  22. FUNCTION DeleteDiskObject(name : String) : Boolean;
  23.     External;
  24.  
  25. FUNCTION GetDefDiskObject(def_Type : Integer) : Address;
  26.     External;   { returns a DiskObjectPtr }
  27.  
  28. FUNCTION GetDiskObjectNew(name : String) : Address;
  29.     External;
  30.         { actually returns a DiskObjectPtr }
  31.  
  32. FUNCTION PutDefDiskObject(diskobj : Address) : Boolean;
  33.     External;
  34.         { diskobj should be a DiskObjectPtr }
  35.  
  36.  
  37. Function AddFreeList(free : Address; mem : Address; len : Integer) : Boolean;
  38.     External;
  39.         { free is a FreeListPtr }
  40.  
  41. Procedure BumpRevision(newbuf, oldname : String);
  42.     External;
  43.  
  44. Function FindToolType(toolTypeArray : Address; typeName : String) : String;
  45.     External;
  46.         { toolTypeArray is a pointer to an array of String }
  47.  
  48. Procedure FreeDiskObject(diskobj : Address);
  49.     External;
  50.         { diskobj should be a DiskObjectPtr }
  51.  
  52. Procedure FreeFreeList(free : Address);
  53.     External;
  54.         { free is a FreeListPtr }
  55.  
  56. Function GetDiskObject(name : String) : Address;
  57.     External;
  58.         { actually returns a DiskObjectPtr }
  59.  
  60. Function MatchToolValue(typeString, value : String) : Boolean;
  61.     External;
  62.  
  63. Function PutDiskObject(name : String; diskobj : Address) : Boolean;
  64.     External;
  65.         { diskobj should be a DiskObjectPtr }
  66.  
  67.